home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / lollipop / lollipop.hqx / Lollipop v0.93 / output.tex < prev    next >
Text File  |  1992-11-17  |  25KB  |  711 lines
  1. % Output.tex copyright 1992 Victor Eijkhout
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. %%%%%%%%%%%%%%%%% O U T P U T %%%%%%%%%%%%%%%
  4. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  5.  
  6. \@GenericConstruct{PageGrid}
  7.  
  8. \newif\if@pagegrid@installed
  9. \ifini{\next@paragraph
  10.    {\if@pagegrid@installed \else 
  11.         \Wmessage{No page grid installed}\fi
  12.    }}
  13. \NewTrace:out
  14. \add@PageGrid@default{\text@constructno}
  15. \add@PageGrid@default{\has@marksyes}
  16.  
  17. \newtoks\user@overrides
  18. \def\add@user@override#1{\append@to@list{user@overrides}{#1}}
  19.  
  20. \newif\if@nubalanceren
  21. \newinsert\botins
  22.  
  23. %%%% Page counting
  24. %
  25. % \count0 is the paper counter: 
  26. %     is increased for every \shipout in the output routine
  27. % \count1 is the page counter:
  28. %     you can do with it whatever you like.
  29.  
  30. % This appears to the users as if \NewCounter:Page had been done.
  31. %
  32. \countdef\sheet@counter=0
  33. \csarg\countdef{\counter@name{Page}}=1 
  34. \CounterRepresentation:Page=1
  35. \newtoks\Page@RL %zwoeg, zwoeg!
  36. \SetCounter:Page=1
  37.  
  38. %%%% Tests
  39. %
  40. \DefineTest:IsRightPage
  41. \DefineTest:IsLeftPage
  42. \DefineTest:IsFirstPage
  43. \DefineTest:IsLastPage
  44. \DefineTest:FlushBottom
  45.  
  46. %% anonieme cs'en zijn in gebruik bij opbouw en gebruik %%
  47. % \tempdima : / klad; gebruikt voor hoofdmeting; daarna in \text@column
  48. % \tempdimc : / klad; gebruikt voor voetmeting
  49. % \cs@a : in gebruik door \haalitems
  50.  
  51. \def\slotpenalty{-10001}
  52.  
  53. \def\@pseudoif#1#2{\tempcounta\escapechar \noesc
  54.     \edef\cs@e{\let\CSname{if@\string#1}\CSname{if\string#2}}\cs@e
  55.     \escapechar\tempcounta}
  56. \@pseudoif\IsFirstPage\true \@pseudoif\IsLastPage\true
  57. \@pseudoif\IsRightPage\true
  58. \@pseudoif\IsLeftPage\false
  59.  
  60. \def\leftright@setup
  61.    {\csarg\ifodd{\counter@name{Page}}\relax 
  62.                 \IsRightPage:yes \IsLeftPage:no
  63.           \else \IsRightPage:no  \IsLeftPage:yes
  64.           \fi}
  65. \def\firstpage@setup{\def\cs@a{yes}
  66.     \edef\cs@b{\xp\get@placed\xp{\firstmark}{first@page}}
  67.     \ifx\cs@a\cs@b \IsFirstPage:yes \else \IsFirstPage:no \fi}
  68. \def\lastpage@setup
  69.     {\ifnum\outputpenalty=\slotpenalty\relax 
  70.         \Tmessage[out]{Last page}\IsLastPage:yes
  71.      \else \IsLastPage:no
  72.      \fi}
  73. \def\output@setup{\let\par\@par
  74.     \parindent\z@ \leftskip\z@ \rightskip\z@ \lineskip\z@
  75.     \@defaulteverypar \MainFont
  76.     \leftright@setup    \firstpage@setup    \lastpage@setup
  77.     \@colnum\@ne \output@set@page@width
  78.     \Tmessage[out]{Incoming text: (\the\ht\@cclv+\the\dp\@cclv) x
  79.                    \the\wd\@cclv}
  80.     }
  81.  
  82. %%%%%%%%%%%%%%%% Head, Foot, Body
  83. %
  84. % Separate boxes are allocated for the page
  85. % head, body, and foot.
  86. % Head and foot contain static material, the
  87. % body contains the text. The body can be empty.
  88. %
  89. \newbox\page@head@box \newtoks\page@head@toks
  90. \page@head@toks{}
  91. \add@PageGrid@default
  92.    {\page@head@toks={\setbox\page@head@box=\vbox\bgroup}}
  93. \newdimen\head@height
  94. \def\measure@head{\head@height=\ht\page@head@box
  95.     \advance\head@height\dp\page@head@box
  96.     \Tmessage[out]{Head measurement: \the\head@height}}
  97.  
  98. \newbox\page@foot@box \newtoks\page@foot@toks 
  99. \page@foot@toks{}
  100. \add@PageGrid@default{\page@foot@toks=
  101.               {\setbox\page@foot@box=\vbox\bgroup}}
  102. \newdimen\foot@height
  103. \def\measure@foot{\foot@height=\ht\page@foot@box
  104.     \advance\foot@height\dp\page@foot@box
  105.     \Tmessage[out]{Foot measurement: \the\foot@height}}
  106.  
  107. \def\goal@height@trace
  108.    {\tempdimb\text@height
  109.     \multiply\tempdimb\ifnum\user@n@cols=\m@ne\n@cols\else\user@n@cols\fi
  110.     \Tmessage[out]{Aim for  text height: \the\text@height\@space
  111.     \ifnum\user@n@cols>\m@ne (\the\user@n@cols\@space columns;
  112.                 total height: \the\tempdimb)
  113.     \else\ifnum\n@cols>\@ne (\the\n@cols\@space columns;
  114.                 total height: \the\tempdimb)
  115.     \fi\fi}}
  116.  
  117. \def\report@body@measurement{
  118.     \Tmessage[out]{Body measurement:
  119.         (\the\ht\page@body@box+\the\dp\page@body@box) 
  120.         x\the\wd\page@body@box}
  121.     \ifvoid\topins\else
  122.         \Tmessage[out]{Top inserts: \the\ht\topins+\the\dp\topins}\fi
  123.     \ifvoid\botins\else
  124.         \Tmessage[out]{Foot inserts: \the\ht\footins+\the\dp\footins}\fi
  125.     }
  126.  
  127. \newbox\page@body@box \newtoks\page@body@toks
  128. \page@body@toks{}
  129. \add@PageGrid@default
  130.    {\page@body@toks={\setbox\page@body@box=\vbox\bgroup}}
  131.  
  132. \def\finish@part@routines
  133.    {\append@to@list{page@head@toks}{\egroup\measure@head}
  134.     \append@to@list{page@foot@toks}{\egroup\measure@foot}
  135.     \append@to@list{page@body@toks}{\egroup}}
  136.  
  137. \newbox\whole@page
  138. \def\make@page{
  139.     \setbox\whole@page=\vbox 
  140.        {\box\page@head@box
  141.             \ifabut@head\nointerlineskip\fi
  142.             \ifabut@foot\tempdima\dp\page@body@box\fi
  143.         \box\page@body@box 
  144.             \ifabut@foot\ifvoid\page@foot@box\else
  145.                  \kern-\tempdima\relax\nointerlineskip\fi\fi
  146.         \box\page@foot@box}%\showbox\whole@page
  147.     }
  148.  
  149. % \vsize has two possibilities:
  150. % 1/ it is calculated dynamically by subtracting
  151. % body and foot height from the total page height.
  152. % If \vsize is different from \ht255, the page
  153. % is thrown back.
  154. % 2/ it is set and the page has whatever size results.
  155. %
  156. \newif\iftext@fits
  157. \def\see@if@text@fits
  158.    {{\multiply\text@height\n@cols 
  159.      \tempdima\text@height
  160.      \advance\tempdima-\vsize
  161.      \ifdim\tempdima<\z@ \tempdima=-\tempdima \fi
  162.      \ifdim\tempdima<.1pt\relax
  163.            \global\text@fitsyes
  164.            \Tmessage[out]{Page accepted.}
  165.      \else \global\text@fitsno
  166.            \Tmessage[out]{Text does not fit. (vsize=\the\vsize)}
  167.            \global\vsize=\text@height
  168.      \fi}}
  169.  
  170. % Multicolumn stuff
  171. % 
  172. % every PageGrid macro installs \n@cols, but the user
  173. % can specify a different number with \NumberOfColumns:x
  174. % This sets \user@n@cols which is usually -1
  175. %
  176. \newcount\n@cols \n@cols\@ne
  177. \newcount\@colnum
  178. \newcount\user@n@cols \user@n@cols\m@ne
  179. \Distance:GutterWidth=1cm
  180. \def\NumberOfColumns:#1
  181.    {\user@n@cols=\w@w{#1}\relax
  182.     \Tmessage[out]{Switch to \the\user@n@cols\@space columns}
  183.     \hsize\page@width 
  184.     \tempdima\GutterWidth \multiply\tempdima\user@n@cols
  185.     \advance\tempdima-\GutterWidth
  186.     \advance\hsize-\tempdima \divide\hsize\user@n@cols}
  187. \add@user@override{\ifnum\user@n@cols=\m@ne\else
  188.     \csarg\let{\output@routine @body}\trivial@body
  189.     \n@cols\user@n@cols
  190.     \Tmessage[out]{User override: \the\n@cols\@space columns.}%
  191.     \fi}
  192.  
  193. \def\trivial@body{\Tmessage[out]{Trivial multicolumn (\the\n@cols) setup}
  194.     \@colnum\@ne \splittopskip\topskip
  195.     \setbox\page@body@box\hbox{\text@column}
  196.     \@colnum\tw@
  197.     \ifnum\n@cols>\@ne 
  198.         \loop \setbox\page@body@box\hbox{\unhbox\page@body@box
  199.               \kern\GutterWidth \text@column}
  200.               \advance\@colnum\@ne
  201.               \ifnum\@colnum>\n@cols\else\repeat
  202.     \fi}
  203. \def\real@text@column{\begingroup\vbadness\@M
  204.     \setbox\z@
  205.     \ifnum\n@cols=\@ne
  206.         \vbox to \vsize{\boxmaxdepth\maxdepth
  207.                  \ifvoid\topins\else\unvbox\topins \fi
  208.                  \unvbox\@cclv
  209.                  \ifvoid\footins\else\unvbox\footins \fi}%
  210.         \Tmessage[out]{Column: \the\ht\z@+\the\dp\z@}%
  211.     \else
  212.         \vsplit\@cclv to \text@height
  213.         \Tmessage[out]{Column \the\@colnum: \the\ht\z@+\the\dp\z@}%
  214.     \fi \ifnum\badness=\@M\Wmessage{Underfull textcolumn}\fi
  215.     \box\z@ \endgroup}
  216.  
  217. \let\OriginalShipout\shipout \let\CurrentShipout\shipout
  218. \newif\ifCountSheets \CountSheetsyes
  219. \def\finish@off@page{\Tmessage[out]{Whole page:
  220.                         \the\ht\whole@page+\the\dp\whole@page}
  221.     {\def\protect{\noexpand\protect\noexpand}
  222.      \def\cprotect{\expandafter\string}
  223.      \normalesc
  224.      \ifsink@pages 
  225.        \message{Page sunk [\the\sheet@counter.\csarg\the
  226.                                      {\counter@name{Page}}]}
  227.        \deadcycles\z@
  228.      \else \CurrentShipout\box\whole@page
  229.            \ifCountSheets\global\advance\sheet@counter\@ne\fi
  230.      \fi
  231.      }
  232.     \global\step@counter{Page}
  233.     }  
  234. \def\shipout@and@unbox@remainder{
  235.     \iftext@fits \make@page \finish@off@page \fi
  236.     \ifvoid\@cclv \Tmessage[out]{Shipped out whole page}
  237.     \else \Tmessage[out]{Part of page not shipped: \the\ht\@cclv} 
  238.           \unvbox\@cclv 
  239.           \ifnum\outputpenalty=\@M\else\penalty\outputpenalty\fi
  240.     \fi
  241.     \iftext@fits \ifother@grid\install@next@page@grid
  242.                  \else\Tmessage[out]{Same grid once again.}\fi 
  243.     \fi}
  244.  
  245. \newif\ifsink@pages
  246. \sink@pagesno
  247. \let\NoPages\sink@pagesyes \let\PagesOut\sink@pagesno
  248.  
  249. % this is a mess. clear up please.
  250. \newtoks\page@options
  251. \def\options@to@pagepart
  252.    {\append@cs@to@list{page@\page@part @toks}\page@options
  253.               \page@options={}}
  254. \add@PageGrid@default{\csarg\newtoks{\@name @routine}
  255.     \def\@current@options@list{page@options}
  256.     \def\page@part{head}\page@options{}
  257.     }
  258.  
  259. \def\install@output@routine#1{{\globaldefs\@ne
  260.     \output=\xp{\csname#1@routine\endcsname}%
  261.     \def\output@routine{#1}%
  262.     \Tmessage[out]{Install output: #1 ---}%
  263.     \@pagegrid@installedyes
  264.     \csname#1@install@parameters\endcsname
  265.     }}
  266.  
  267. \newdimen\text@height
  268.  
  269. % During the load of this file we build up a list of
  270. % defaults and test. These are then turned into PageGrid@default
  271. % at the end of this file.
  272. \newtoks\otr@settings \newtoks\otr@conditions
  273. \def\add@otr@setting#1{\append@to@list{otr@settings}{#1}}
  274. \def\del@otr@setting#1{\del@tok@from@list{otr@settings}#1}
  275. \def\add@otr@condition#1{\append@to@list{otr@conditions}{#1}}
  276. \def\set@otr@stuff{\def\cs@e##1{
  277.     \edef\cs@f{\nxp\adds@PageGrid@default{\global##1={\the##1}}}
  278.     \cs@f}
  279.   \cs@e\otr@settings \cs@e\otr@conditions}
  280. %\showthe\otr@settings \showthe\otr@conditions
  281. %\showthe\PageGrid@defaults}
  282.        
  283. \def\@DefinePageGrid{\options@to@pagepart \finish@part@routines
  284.     \csarg\edef{\@name @install@parameters}{%
  285.           \vsize\the\height@toks\relax \set@topskip
  286.           \multiply\vsize
  287.             \nxp\ifnum\user@n@cols>\@ne\user@n@cols\relax
  288.             \nxp\else\the\n@cols\relax\nxp\fi
  289.           \hsize\the\width@toks\relax
  290.           \def\CSname{\@name @page@width}%
  291.                  {\the\width@toks\relax}%
  292.           \nxp\Tmessage[out]{Initial hsize: \nxp\the\hsize}%
  293.           \ifwidth@of@text 
  294.           \else \nxp\hsize@from@page@width
  295.                 \ifnum\the\n@cols>1 
  296.                     \divide\hsize\the\n@cols\relax\fi
  297.           \fi
  298.           \nxp\Tmessage[out]{Installed hsize: \nxp\the\hsize}%
  299.           }
  300.     \csarg\edef{\@name @otr@parameters}{%
  301.           \the\otr@settings
  302.           \xp\@empty\the\otr@conditions
  303.           \CSname{height@of@text\ifheight@of@text yes\else no\fi}%
  304.           \text@height\the\height@toks\relax
  305.           \CSname{width@of@text\ifwidth@of@text yes\else no\fi}%         
  306.           \n@cols\the\n@cols\relax}
  307.     \csarg\edef{\@name @head@foot}{\the\page@head@toks 
  308.           \the\page@foot@toks
  309.           \ifheight@of@text\else
  310.           \advance\text@height-\head@height 
  311.           \advance\text@height-\foot@height
  312.           \fi}
  313.     \csarg\edef{\@command @body}{\the\page@body@toks}
  314.     \csarg\edef{\@command}{%
  315.           \nxp\EjectPage
  316.           \nxp\install@output@routine{\@name}%
  317.           %\global\hsize= \ifseen@text \CSname{\@name @text@width}%
  318.           %           \else \CSname{\next@page@grid @text@width}%
  319.           %           \fi
  320.           \outer@start@commands \after@indent
  321.           }
  322.     \csarg\edef{\@name @routine}{
  323.       \nxp\Tmessage[out]{======== Output routine: \@name\@space ==========}
  324.       \nxp\output@setup 
  325.       \CSname{\@name @otr@parameters}
  326.       \nxp\the\user@overrides
  327.       \CSname{\@name @head@foot}
  328.       \nxp\goal@height@trace
  329.       \ifnum\n@cols=\z@ %% no text, trivial case.
  330.             \setbox\page@body@box\voidb@x 
  331.             \nxp\text@fitsyes
  332.       \else \nxp\ifragged@bottom\nxp\text@fitsyes
  333.             \nxp\else\nxp\see@if@text@fits\nxp\fi
  334.             \nxp\iftext@fits%\nxp\show
  335.               %\CSname{\@name @body}
  336.                \let\nxp\text@column\nxp\real@text@column
  337.                \CSname{\@name @body}
  338.                \nxp\report@body@measurement
  339.             \nxp\fi
  340.       \fi
  341.       \nxp\shipout@and@unbox@remainder
  342.       \nxp\Tmessage[out]{==========}%
  343.       }
  344.     \xp\install@output@routine\xp{\@name}
  345.     }
  346.  
  347. % not operative yet.
  348. \new@dimen{user@page@height}{\m@ne sp}
  349. \new@dimen{user@text@height}{\m@ne sp}
  350. \def\Height:#1=#2
  351.    {\switch {\if\EqualString{#1}}
  352.     {Page} {\user@page@height\w@w{#2}}
  353.     {Text} {\user@text@height\w@w{#2}}
  354.     {default} {\Wmessage{Unknown option: `Height:#1=#2'}}
  355.     \endswitch}
  356.  
  357. %-- height of page/text
  358. %
  359. % the \ifheight@of@text conditional is also used
  360. % during run time.
  361. %
  362. \newif\ifheight@of@text
  363. \newtoks\height@toks \newdimen\page@height
  364. \add@PageGrid@default{\height@of@textyes\height@toks{20cm}}
  365. \add@PageGrid@default{\let\text@lines\relax}
  366. \@PageGridOption{height}{
  367.     \switch {\if\EqualString{#1}}
  368.         {page}  {\height@of@textno}
  369.         {text}  {\height@of@textyes}
  370.         {lines} {\height@of@textyes
  371.               \edef\cs@e{\def\nxp\text@lines{\@w@w{#2}}}\cs@e}
  372.         {default} {\Wmessage{Strange modifier: `height:#1=#2'}}
  373.     \endswitch
  374.     \edef\cs@e{\nxp\height@toks={\@w@w{#2}}}\cs@e
  375.     }
  376. % Make sure that the \Height command is not used!
  377. \@PageGridNOOP{Height}
  378.  
  379. %%%%
  380. %
  381. % Width handling
  382. %
  383. \newif\ifwidth@of@text
  384. \newtoks\width@toks \newdimen\page@width
  385. \@PageGridOption{width}{
  386.     \switch {\if\EqualString{#1}}
  387.         {page} {\width@of@textno}
  388.         {text} {\width@of@textyes}
  389.         {default} {\Wmessage{Strange modifier: `width:#1=#2'}}
  390.     \endswitch
  391.     \edef\cs@e{\nxp\width@toks={\@w@w{#2}}}\cs@e
  392.     }
  393.  
  394. % Make sure that the \Width command is not used!
  395. \@PageGridNOOP{Width}
  396.  
  397. % At installation of the output routine, calculate the hsize
  398. % if the page width is given.
  399. %
  400. \def\hsize@from@page@width
  401.    {\def\text@column{\hskip\z@\relax}%
  402.     \let\maybe@to@page@width\relax
  403.     \the\page@body@toks %\showthe\page@body@toks 
  404.     \Tmessage[out]{Width page body minus text: \the\wd\page@body@box}%
  405.     \global\advance\hsize-\wd\page@body@box}
  406.  
  407. % At the start of the output routine, calculate the page width
  408. % from the hsize (which may have been tinkered with), or set to
  409. % routine-specific page width (which may also have been changed).
  410. %
  411. \def\output@set@page@width
  412.    {\ifwidth@of@text
  413.         \edef\text@column{\hskip\the\wd\@cclv\relax\hskip\z@\relax}%
  414.         \let\maybe@to@page@width\relax
  415.         \csn\output@routine @body\ecs
  416.         \page@width\wd\page@body@box
  417.         \Tmessage[out]{Deduced page width: \the\page@width}
  418.     \else \def\maybe@to@page@width{ to \page@width}
  419.         \page@width\csn\output@routine @page@width\ecs\relax
  420.     \fi}
  421.  
  422. %%%% Topskip
  423. % initially the outer topskip is picked up, unless
  424. % the option 'topskip' is given.
  425. %
  426. \add@PageGrid@default
  427.    {\edef\set@topskip
  428.       {\topskip\the\topskip\relax\splittopskip\topskip}}
  429. \@PageGridOption{topskip}{
  430.     \edef\cs@e
  431.        {\def\nxp\set@topskip{\topskip\@w@w{#1}\relax
  432.                      \splittopskip\topskip}}
  433.     \cs@e
  434.     }
  435. % ragged bottom the way it's done in plain TeX.
  436. \newif\ifragged@bottom
  437. \add@otr@setting{\ragged@bottomno}
  438. \@PageGridOption{raggedbottom}{
  439.     \del@otr@setting{\ragged@bottomno}
  440.     \add@otr@setting{\ragged@bottomyes}
  441.     \if\EmptyList{#1}\@add@toks{\var@topskip{60pt}}
  442.     \else\edef\cs@e{\nxp\@add@toks{\nxp\var@topskip{\@w@w{#1}}}}
  443.          \cs@e
  444.     \fi}
  445. \def\var@topskip#1{\tempdima\topskip\tempskipa\z@ plus #1\relax
  446.     \topskip\tempdima \advance\topskip\tempskipa
  447.     \splittopskip\topskip}
  448.  
  449. %-- textband
  450. \newif\ifin@textband \add@PageGrid@default{\in@textbandno}
  451. \@PageGridOption{textband}{
  452.     \switch {\if\EqualString{#1}}
  453.         {start} {\start@textband}
  454.         {stop}  {\stop@textband}
  455.         {default} {\Wmessage{Strange modifier `textband:#1'}}
  456.     \endswitch}
  457. \newdimen\text@width
  458. \def\start@textband
  459.    {\options@to@pagepart 
  460.     \b@group[textband]\@hmodeyes\in@textbandyes
  461.     \@add@toks{\hbox \maybe@to@page@width\bgroup}
  462.     }
  463. \def\stop@textband
  464.    {\@add@toks{\egroup} \e@group[textband]
  465.     \ifseen@text \before@textno
  466.              \def\page@part{body} \options@to@pagepart
  467.              \def\page@part{foot} 
  468.     \fi}
  469.  
  470. %-- band
  471. \newif\ifabut@foot \newif\ifabut@head
  472. \add@otr@setting{\abut@footno \abut@headno}
  473. \@PageGridOption{band}{
  474.     \switch {\if\EqualString{#1}}
  475.         {start} {\@add@toks{\hbox to \page@width\bgroup}
  476.               \b@group[band]\@hmodeyes
  477.               \def\block@closing{\@add@toks{\hfil\egroup}
  478.                   \e@group[band]}}
  479.         {invisible} {\@add@toks{\setbox\tempboxa
  480.                                 \hbox to \page@width\bgroup}
  481.               \b@group[band]\@hmodeyes
  482.               \def\block@closing{\@add@toks{\hfil\egroup}
  483.                   \ifbefore@text
  484.                       \@add@toks{\vtop to\z@{\kern\z@\box\tempboxa\vss}
  485.                                       \nointerlineskip}
  486.                       \del@otr@setting{\abut@headno}
  487.                       \add@otr@setting{\abut@headyes}
  488.                       %\global\abut@headyes
  489.                   \else  \@add@toks{\nointerlineskip
  490.                                       \vbox to\z@{\vss\box\tempboxa}}
  491.                       \del@otr@setting{\abut@footno}
  492.                       \add@otr@setting{\abut@footyes}
  493.                       %\global\abut@footyes
  494.                   \fi\e@group[band]}}
  495.         {stop}  {\block@closing}
  496.         {default} {\Wmessage{Strange modifier `band:#1'}}
  497.     \endswitch}
  498.  
  499.  
  500. %-- next page grid
  501. \newif\ifother@grid
  502. \add@PageGrid@default{\other@gridno}
  503. \add@otr@setting{\other@gridno}
  504. \add@otr@condition{\ifother@grid
  505.     \def\nxp\install@next@page@grid
  506.        {\nxp\install@output@routine{\next@page@grid}}%
  507.   \fi}
  508. \@PageGridOption{NextPageGrid}{\other@gridyes
  509.     \del@otr@setting{\other@gridno}
  510.     \add@otr@setting{\other@gridyes}
  511.     \def\next@page@grid{#1}
  512.     }
  513.  
  514. %-- text
  515. \add@PageGrid@default{\n@cols\z@}
  516. \newif\ifbefore@text 
  517. \newif\ifseen@text %this one is also used by 'external'
  518. \add@PageGrid@default{\before@textyes \seen@textno}
  519. \@PageGridOption{text}{\global\seen@textyes
  520.     \ifin@textband\else\Emessage{'text' has to be in 'textband'}\fi
  521.     \global\advance\n@cols\@ne
  522.     \@add@toks{\text@column}}
  523.  
  524. %%%%%%%%%%%%%%%%%%%%%%% user commands
  525.  
  526. \def\leegbladinvoegen{\@g@stapteller{Page}}
  527. \def\EjectPage{\vfil\eject}
  528. \def\ToRecto{\csarg\ifodd{\counter@name{Page}}\else\step@counter{Page}\fi}
  529. \def\ToVerso{\csarg\ifodd{\counter@name{Page}}\step@counter{Page}\fi}
  530.  
  531. % less useful user command (mostly for formatting the manual :-)
  532. %
  533. \newbox\saved@page@box \newdimen\saved@hsize \newcount\saved@pageno
  534. \newtoks\saved@mark@items
  535. \def\SuspendOutput{\xdef\saved@output@routine{\output@routine}%
  536.     \global\saved@hsize\hsize \global\saved@mark@items\mark@items
  537.     \global\saved@pageno\cs@counter@name{Page}%
  538.     \output{\global\setbox\saved@page@box\box\@cclv
  539.             \Tmessage[out]{Suspend output; 
  540.                saved (\the\ht\saved@page@box+\the\dp\saved@page@box)
  541.                x \the\wd\saved@page@box}%
  542.             \global\output{\Emessage{You should not call output now!}%
  543.                            \OriginalShipout\box\@cclv}}%
  544.     \eject
  545.     }
  546. \def\ResumeOutput
  547.    {\xp\install@output@routine\xp{\saved@output@routine}%
  548.     \global\hsize\saved@hsize \global\mark@items\saved@mark@items
  549.     \global\cs@counter@name{Page}\saved@pageno
  550.     \unvbox\saved@page@box
  551.     }
  552.  
  553. %%%%%%%%%%%%%%%% Marks
  554. %%%%
  555. \NewTrace:mark
  556. \def\FirstPlaced:#1 
  557.    {\Tmessage[mark]{First Placed #1 from \firstmark}%
  558.     \xp\get@placed\xp{\firstmark}{#1}}
  559. \def\PreviousPlaced:#1
  560.    {\Tmessage[mark]{Previous Placed #1 from \topmark}%
  561.     \xp\get@placed\xp{\topmark}{#1}}
  562. \def\LastPlaced:#1
  563.    {\Tmessage[mark]{Last Placed #1 from \botmark}%
  564.     \xp\get@placed\xp{\botmark}{#1}}
  565. \def\get@placed#1#2{%
  566.     \get@@placed{#2}#1{SM}{}$}% SM: StopMarker
  567. \def\get@@placed#1#2#3{\if\EqualStringX{#2}{SM}\xp\take@to@dollar
  568.     \else\if\EqualStringX{#1}{#2}%
  569.               \maybe@uppercase{#3}\xp\xp\xp\take@to@dollar
  570.          \else\xp\xp\xp\get@@placed\fi
  571.     \fi{#1}}
  572. \ifini{\newtoks\mark@items}
  573.       % \newtoks\mark@toks % is this one used?
  574.  
  575. \newif\ifhas@marks
  576. \add@generic@default{\has@marksno}
  577.     % only yes in heading and output routine.
  578.     % it seems that you can have page breaks at marks...
  579. \@GenericOption{nomarks}{\has@marksno}
  580. \def\add@mark@item#1{\csarg\newtoks{mark@toks@#1}%
  581.     \Tmessage[mark]{Adding mark item #1}%
  582.     \global\mark@items\xp{\the\mark@items{#1}}}
  583. \def\refresh@mark@item#1#2{\csarg\global{mark@toks@#1}{#2}}
  584. \def\get@mark@items#1{\if\EqualStringX{#1}{SM}%
  585.     \else{#1}{\csarg\the{mark@toks@#1}}\xp\get@mark@items
  586.     \fi}
  587. \def\place@mark{\mark{\xp\get@mark@items\the\mark@items{SM}}}
  588.  
  589. % this one should be defined in document.tex
  590. \add@mark@item{first@page}
  591.  
  592. % Page wide rule
  593.  
  594. \@PageGridOption{pagerule}{
  595.     \@add@toks{\hrule width\page@width\relax\nobreak}}
  596.  
  597. % Set default otr@settings and otr@conditions
  598. \set@otr@stuff
  599.  
  600. \endinput
  601.  
  602. 92/10/24 raggedbottom in progress
  603. 92/11/04 splittopskip made equal to topskip
  604. 92/11/14 messed with otr@xyz token lists
  605. 92/11/15 warning on underfull text column;
  606.            ragged bottom still not working properly
  607.  
  608.  
  609. %%%%%%%%%%%%%%%%%%%%%% Old Stuff; maybe useful, maybe not
  610.  
  611. \newskip\@topS \newskip\@botS
  612. {\noeol
  613. \othercr
  614. \gdef\topillustratie{\bgroup\othercr \@topill}
  615. \gdef\@topill:#1=#2^^M{\edef\cs@e{\gdef\CSname{@topS#1}{#2}}
  616.     \cs@e \global\advance\@topS #2\egroup}
  617. \gdef\botillustratie{\bgroup\othercr \@botill}
  618. \gdef\@botill:#1=#2^^M{\edef\cs@e{\gdef\CSname{@botS#1}{#2}}
  619.     \cs@e \global\advance\@botS #2\egroup}}
  620.  
  621. \def\@wisill{\global\@topS\z@ \global\@botS\z@
  622.     \csarg\gdef{@topS1}{\z@}\csarg\gdef{@botS1}{\z@}
  623.     \csarg\gdef{@topS2}{\z@}\csarg\gdef{@botS2}{\z@}
  624.     \csarg\gdef{@topS3}{\z@}\csarg\gdef{@botS3}{\z@}
  625.     }
  626. \@wisill
  627.  
  628. \newtoks\@stramienlijst
  629. \def\invoerpad{}
  630. \def\opmaak: #1\par{\@stramienlijst={}
  631.     \def\cs@a##1 {\eqstring{##1}{klaar}{}%
  632.        {\append@to@list{@stramienlijst}{\@probeerstramien ##1;}
  633.         \cs@a}}
  634.     \cs@a #1klaar }%% let op de significante spaties!!
  635.     %% en de spatie achter het laatste stramien komt van de ^^M
  636. \def\invoer: #1 {
  637.     \def\@probeerstramien ##1;{\csn ##1\ecs 
  638.         \message{Ik probeer het met opmaak: ##1}
  639.         \@installeertellers{##1}
  640.         \input \invoerpad#1.tex
  641.         \vfill\eject
  642.         \@bewaartellers{##1}
  643.         }
  644.     \the\@stramienlijst}
  645.  
  646. %% uitloop van vorige output routine
  647. % iftempf: als pagina geen uitloop gebruikt, direct eventuele
  648. %          uitloop leeg gooien.
  649. % laatste pagina: tempboxa <- vbox{unvcopy255}
  650. % er wordt een pagina uitgeworpen:
  651. %    - 255 is void: invoer is op, dus uitlopen 
  652. %                   als dit de laatste pagina was
  653. %    - 255 non-void: er is iets terug te werpen; dit was kennelijk niet
  654. %                   de laatste pagina, dus geen uitloop.
  655.  
  656. \newbox\@uitloop \newbox\@tempuitloop \newif\ifisereenuitloop
  657.     \Tmessage[out]{Aangetroffen uitloop: \the\ht\@uitloop+\the\dp\@uitloop}
  658.  
  659. %-- uitloop
  660. % mag alleen in kop of voet voorkomen.
  661. \setbox\@tempuitloop=
  662.         \vbox{\ifvoid\topins\else\unvcopy\topins\fi
  663.               \unvcopy\@cclv\kern\z@}
  664. \setbox\@tempuitloop=\hbox{}
  665. \@PageGridOption{uitloop}{\tempfyes 
  666.     \@add@toks{\Tmessage[out]{Uitloop wordt verwerkt.}% 
  667.           \copy\@uitloop 
  668.           }}
  669.  
  670.           \iftempd
  671.               \iftempc \Tmessage[out]{Eerste pagina, derhalve:}
  672.                        \@loopnietuit \else \@loopuit \fi
  673.           \else \Tmessage[out]{Niet de laatste pagina, derhalve:}
  674.                 \@loopnietuit \fi
  675.  
  676.           \iftempf \else \nxp\@uitloopwegwerpen \fi %geheugenbesparing.
  677.  
  678. \def\@loopuit{\global\isereenuitloopyes 
  679.     \global\setbox\@uitloop=\box\@tempuitloop
  680.     \Tmessage[out]{Uitloop: \the\ht\@uitloop+\the\dp\@uitloop}}
  681. \def\@loopnietuit{\global\isereenuitloopno \@uitloopwegwerpen}
  682. \def\@uitloopwegwerpen{
  683.     \Tmessage[out]{Uitloop weggegooid: \the\ht\@uitloop+\the\dp\@uitloop}
  684.     \global\setbox\@uitloop=\hbox{}}
  685.  
  686. %-- veld %% is deze nog nodig nu we 'tekstblok' generisch hebben?
  687. \@PageGridOption{veld}{
  688.     \eqstring{#1}{stop}%
  689.          {\@add@toks{\egroup}}%
  690.          {\@add@toks{\vtop\bgroup\kern0cm}
  691.           \eqstring{#1}{uitvullen}{}%
  692.                    {\@add@toks{\hsize=\w@w{#1}}
  693.                     \iftempc\advance\text@width-\w@w{#1}\fi}
  694.          }}
  695. %-- parallel Nog eens goed over nadenken.
  696. \@PageGridOption{parallel}{
  697.     \eqstring{#1}{stop}%
  698.          {\@add@toks{\vfil\egroup\egroup}}%
  699.          {\@add@toks{\vtop\bgroup\kern0cm
  700.                 \vbox to \vsize\bgroup}% dit is fout.
  701.           \eqstring{#1}{uitvullen}{}%
  702.                 {\iftempc\advance\text@width-\w@w{#1}\relax\fi
  703.                  \@add@toks{\hsize=\w@w{#1}}}
  704.           }}
  705. %-- kolommenbalanceren
  706. % heeft alleen zin voor meerkoloms uitvoer,
  707. % werkt alleen op laatste pagina
  708. \@PageGridOption{kolommenbalanceren}{
  709.     \eqstring{#1}{}{\tempgyes}{\csn tempg#1\ecs}}
  710.  
  711.